home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: 500 MB Amiga Software / 500 MB Amiga Software - Euber 130 - Amiga Games Disc & Mag.iso / userbox / publicdomain / filer / rexx / upload.filer < prev    next >
Text File  |  1995-04-03  |  1KB  |  81 lines
  1. /* 
  2.  
  3.    $VER: Upload.filer 1.2 (2.4.95)
  4.  
  5.    Author:
  6.     Matthias Scheler (tron@lyssa.owl.de)
  7.  
  8.    Function:
  9.     All selected files in the active directory listview will be uploaded
  10.     via Olaf `Olsen' Barthel's Term
  11.  
  12.    History:
  13.     1.2   removed unnecessary ADDRESS 'FilerRexx'
  14.  
  15.    Requires:
  16.     Term 4.1 or newer up and running
  17.  
  18.    Call:
  19.     Upload
  20.  
  21.    Example for "Filer.RC":
  22.     BUTTON ...,...,"Upload","Upload"
  23.  
  24. */
  25.  
  26. OPTIONS RESULTS
  27.  
  28. IF ~SHOW('Ports','TERM') THEN
  29.  DO
  30.   ALERTBOX 'Term is not running.'
  31.  
  32.   EXIT 5
  33.  END
  34.  
  35. GETSOURCEPATH
  36. IF RESULT="RESULT" THEN EXIT 5
  37. SourceDir=RESULT
  38.  
  39. LOCKFILER
  40. IF RESULT="RESULT" THEN EXIT 5
  41. Key=RESULT
  42.  
  43. PANEL OFF
  44.  
  45. 'STATUS Preparing upload via Term ...'
  46.  
  47. ADDRESS 'TERM' 'CLEAR UPLOAD'
  48. DoIt=0
  49.  
  50. GETNUMENTRIES
  51. Num=RESULT
  52. DO Index=1 TO Num
  53.  GETNAME Index
  54.  Data=RESULT
  55.  Name=SUBSTR(Data,2)
  56.  
  57.  IF LEFT(Data,1)="f" THEN
  58.   DO
  59.    IF RIGHT(SourceDir,1)=":" THEN SourceName=SourceDir||Name
  60.    ELSE SourceName=SourceDir||"/"||Name
  61.  
  62.    ADDRESS 'TERM' 'ADDITEM TO upload NAME '||SourceName
  63.    TOGGLEENTRY Index
  64.  
  65.    DoIt=1
  66.   END
  67. END
  68.  
  69. IF DoIt THEN
  70.  DO
  71.   'STATUS Uploading via Term ...'
  72.  
  73.   ADDRESS 'TERM' 'WINDOW main FRONT ACTIVATE'
  74.   ADDRESS 'TERM' 'SENDFILE MODE Binary'
  75.  END
  76.  
  77. 'STATUS Operation finished !' 
  78.  
  79. PANEL ON
  80. UNLOCKFILER Key
  81.